home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Glitch Apple Disk Collection
/
2014.glitch.apple.collection.zip
/
indexed
/
33MASTER.DSK
/
MAKE TEXT.bas
< prev
next >
Wrap
BASIC Source File
|
2014-09-09
|
634b
|
23 lines
5 REM MAKE TEXT
10 DIM A$(100):I = 0
20 D$ = CHR$(4): REM CTRL D
30 HOME : TEXT
40 PRINT "YOU GET TO TYPE ONE STRING AT A TIME."
50 PRINT "A STRING MAY HAVE UP TO 239 CHARACTERS."
60 PRINT "THIS PROGRAM LETS YOU WRITE TEXT FILES. "
70 PRINT :I = I +1
80 PRINT "(PRESS THE RETURN KEY TO QUIT.)
90 PRINT "TYPE STRING #";I;": ";
100 INPUT "";A$(I)
110 IF A$(I) < >"" GOTO 60
120 PRINT
130 INPUT "WHAT FILE NAME? ";N$
140 PRINT D$;"OPEN ";N$
150 PRINT D$"DELETE ";N$
160 PRINT D$;"OPEN ";N$
170 PRINT D$;"WRITE ";N$
180 PRINT I -1
190 FOR J = 1 TO I -1
200 : PRINT A$(J)
210 NEXT J
220 PRINT D$;"CLOSE ";N$